﻿Imports clases
Public Class frmAñadir


    Private Sub btnAñadir_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAñadir.Click

        Dim sino As Boolean
        If chkVerdadera.Checked = True Then
            sino = True
        Else
            sino = False
        End If
        Dim mensaje As String
        mensaje = frm.miTest.Añadir(New Pregunta(txtEnunciado.Text, sino))
        If mensaje <> "" Then
            MessageBox.Show(mensaje)
            txtEnunciado.Text = ""
            chkVerdadera.Checked = False
            Exit Sub
        End If
        txtEnunciado.Text = ""
        chkVerdadera.Checked = False
    End Sub

    Private Sub btnCerrar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCerrar.Click
        Me.Close()

    End Sub

    
    Private Sub frmAñadir_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub
End Class